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THIS DIAGNOSTIC IS DESIGNED TO CHECK THE AUTO-RESTART 
OP MICRO-NOVA AFTER A POWER FAIL. 



MACHINE REQUIREMENTS 

HICRO-NUVA :pu 
4K UF READ/WRITE HEMOKV 
TELETYPE OR CRT 
BATTERY BACK-UP UNIT 



OPERATING PROCEDURE 

THE OIGNOSTIC CAN BE LOADED FROM DTOS OR PAPER TAPE. 
HOWEVER THE PROGRAM CAN NOT BE RUN IN 'RUN ALL" MODE 
OF OTOS. AFTER THE DIAGNOSTIC IS LOADED IT HILL AUTO 
START AT 200. THE OPERATOR MILL BE ASKED TO TURN THE 
KEY TO LOCK POSITION ANO TURN THE POHER OFF. 
WHEN THE POMER IS RESUMED THE MEMORY AND ACCUMULATORS 
WILL BE CHECKED FOR THE PROPER DATA, IN EVENT OF A 
FAILURE AN APPROPRIATE MESSAGE HILL BE REPORTED, 
IF A DEVICE OTHER THAN POWER FAIL UNIT INTERRUPTS THE 
CPU AFTER THE OPERATOR HAS BEEN ASKED TO TURN THE POHER 
OFF, A MESSAGE REPORTING THE INTERRUPTING DEVICE HILL 
BE PRINTED OUT. 



ERROR DESCRIPTION 

ON ENCOUNTERIN AN ERROR A SELF EXPLAINATARY MESSAGE HILL 
BE TYPED OUT 



•PROGRAM DESCRIPTION 
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SIART.ING THE PROGRAM THE MEMORY IS SIZED AND 
N TO A BACK GROUND PATTERN, THE ACCUMULATORS 
ADEU WITH PREDETERMINED VALUES AND THEIR COPY 
CEO IN PAGE 0. A COUNTER FOR 2 MSEC, IS SET. 
OR IS THEN ASKEO TO TURN OFF THE POHER, AFTER 
WER FAIL INTERRUPT, PROGRAM WAITS FUR NEARLY 2 
BEFORE EXECUTIN A HALT, 

HE POWER IS TURNED ON THE STATES OF CARRY ANO 
UPTS ARE CHECKED AND THE CONTENTS OF ACCUMULA- 
ND MEMORY ARE VARIFIEO, 

POWER UP STARTS THE PROGRAM THRU LOCATION 1 
N ERROR IS REPORTEO, 
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MES7S 

TYP7E 

CRL7F 

PQC7T 

Z0C7T 
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DIRT 
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177 
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15 



80 



ICRY 9AVE LOCATION 

IAC0 SAVE LOCATION 

IAC1 SAVE LOCATION 

(AC2 SAVE LOCATION 



|AC0 SAVE IN CHC7T ROUTINE 



10004 UNPuR 






01 




000200 


.LOC 


200 


02 










03 


00200 


060277 STARTl 


InTDS 




34 


00201 


1030125 PwRTS! 


LDA 


2,EN0PR 


0b 


00202 


151400 


INC 


2,2 


06 


00203 


035000 


LDA 


3,0,2 


07 


00204 


051000 


ST» 


2,0,2 


ae 


00209 


021000 


LDA 


0,0,2 


09 


00206 


099000 


STA 


3,0,2 


10 


00207 


112419 


SUB* 


0,2,SNR 


11 


00210 


151112 


MOVL* 


2,2,SZC 


12 
13 
14 


00211 


102401 


SUB 


0,0, SKP 


00212 


000202 


JMP 


P*RTS*l 


lb 


00213 


112000 


ADC 


0,2 


16 


00214 


034132 


LOA 


3.P17T7 


17 


00215 


026049 


LCA 


1,0IEGGS 


16 


00216 


129004 


NOV 


1,1, SZR 


19 


00217 


172000 


ADC 


3,2 


20 


00220 


090065 


STA 


2,TPMEH 


21 


00221 


126520 


SUBZL 


1,1 


22 


00222 


044067 WRITE! 


STA 


1.ACC0 


23 


00223 


B40061 


STA 


B,BKGND 


24 


00224 


030069 


LDA 


2,TPMEM 


2b 


00229 


034129 


LOA 


3.EN0PR 


26 


00226 


041400 


STA 


0,0,3 


27 


00227 


179400 


INC 


3,3 


28 


00230 


172053 


ADCO* 


3,2,SNC 


29 










3B 


00231 


000226 


JMP 


.-3 


31 


00232 


B20127 


LDA 


0, COUNT 


32 


00233 


040062 


STA 


0,endcnt 


33 


00234 


020067 TTOUT! 


LOA 


0.ACC0 


34 


00235 


110000 


COH 


0,2 


3b 


00236 


050071 


STA 


2.ACC2 


*6 


00237 


006117 


JSR 


0IMESS 


37 


00240 


000706 


PkROF 




38 


00241 


176400 


SUB 


3,3 


39 


00242 


079111 


OOAS 


3,TT0 


40 


00243 


063611 


SKPON 


TTO 


41 


00244 


004243 


' JMP 


.-1 


42 


00249 


034126 


LO* 


3, INST 


43 


00246 


054011 


STA 


3,11 


44 


00247 


034131 


LOA 


3, Nil 


46 


00250 


060177 


INTtN 




46 
47 
46 


00251 


094001 


STA 


3,1 


00292 


069477 


INTA 


1 


49 


00293 


166415 


SUB* 


3,1,SNR 


50 


00254 


000290 


JMP 


.-« 


51 


0025b 


125415 


INC* 


1,1, SNR 


52 










53 


00256 


000962 


JMP 


PHRON 


54 


00297 


006117 


JSR 


01 MESS 


55 


00260 


000741 


UIGL 




56 


00261 


006123 


JSR 


01ZOCT 


57 


00262 


061277 


OOAC 


0,CPU 


56 


00263 


000234 


JMP 


TTOUT 


59 










8b 


00264 


006117 FAULT! 


JSR 


* IMESS 



I0I5AULE INTERRUPTS 
IAC2 * END OF PROGRAM 



(HEAD 

(RESTORE THE LOCATION 

(SKIP IF SIZING IS OVER 

(SKIP IF STILL SIZING 

(MEMORY MILL BE WRITTEN TO A 

(BACKGROUND OF 

(KEEP ON SIZING 

(DECREMENT AC2 

(AC3 • 177 

(SKIP IF NOT UNDER DTOS 
(SAVE THE MINI. MONITOR 
(SAVE THE TOP OF THE MEM. 
IACJ ■ 1 

(SAVE THE ACCUMULATOR PATTERN 
(SAVE THE MEMORY BACK GROUND 



(•RITE 



(SKIP AFTER REACHING THE 

IE NO 



(PREPARE TO HAIT FOR 2 MSEC 
(AC8 • ACCUMULATOR PATTERN 



(SEND A NULL CHARACTER 
(■AIT FOR TTO DONE 



(ACS • JMP 40 



(ENABLE INTERRUPTS 
(HETURN AFTER INTERRUPT TO 
(THE LOCATION AT 
(READ THE INTERRUPTING DEV. 
(SKIP IF NOT TTO 
(IGNORE TTO INTERRUPTS 
(SKIP IF NOT A PONER FAIL 
(INTERRUPT 



(ILLEGALLY INTERRUPTING DEV. 
(IORST 



(PROGRAM MILL COME HERE IF 



0705 MNPoH 

ai 

32 07265 U41724 
73 07266 *76I 17 

em nt»a67 ooo764 

75 07270 07U2OO 

76 

97 OB271 eloobe NXTACS 

ab BH272 ^24067 

7» 07273 034130 

It- U7274 137404 

11 

12 07275 070574 

Id 00270 054766 

14 0727/ 024762 

15 00370 125005 

16 07371 OP03e5 

17 07372 774351 

18 1)7373 006117 
IS 07304 070776 
an 00305 ■,24X67 CMKCR: 

si puj^b la/'inn 

22 00307 172500 

23 07310 0247/7 

24 07J11 122419 

25 07312 070317 

26 073)3 «4006»5 

27 07314 004351 
26 »7315 076117 
2b 07316 *aia«>6 

30 07317 030125 MtMUHM LUA 

31 07320 02o76l 

32 07321 023000 

33 H7322 1224115 

34 07323 0703J2 
39 07324 .140066 

36 07325 o»4351 

37 77326 076117 
36 07327 ^71717 
39 0733VI 14570'* 
47 07331 076123 
4) 07332 1514.17 NXTCl.I 

42 07333 »34a6S 

43 07334 156753 
44 

45 07335 B70327 

46 0733b 020061 

47 07337 1<*07«0 
4b 
49 

30 07340 061277 
SI 07341 024767 

92 07342 135107 

93 07343 129107 
54 00344 129239 
99 

9b 00345 120121 
97 77346 124234 
96 

9B 07347 000222 
60 07350 070221 



THRU! 




JSR 


•IMtSS 


ONPhR 




JMP 


START 


ISZ 


ACNUM 


LUA 


1, ACNUM 


LUA 


3,N3 


AND 


l,3,SiR 


JHP 


CHKAC 


ST» 


3.XUTA 


Lu» 


l.ENOCNT 


MUV 


1,1, SNR 


JMP 


CMKCR 


JSR 


REPORT 


JSR 


•IMtSS 


InCnT 




LUA 


I.ACCO 


aool 


1.1 


SU8CI. 


7,7 


LU« 


l.SAVC 


sue* 


1,0, SNR 


J«P 


MtMCHK 


STA 


7.X0TA 


JSR 


RtPORT 


JSR 


hmess 


ASCHY 




LUA 


2,ENDPR 


Lo» 


7,8KGnP 


LDA 


1,0,2 


SUB« 


1,7, SnR 


JHP 


NXTCL 


ST» 


7,XDTA 


JSR 


REPORT 


JSR 


#IME5S 


BuMEM 




MOV 


2,1 


JSR 


HZUCT 


INC 


2,2 


LUA 


3,TPMEM 


tUCOO 


2, 3, SMC 


JfP 


MtMtMK1-l 


Lbt 


7,BKGND 


COM 


7, a 


DUAL 


7, CPU 


LUA 


j.Acce 


MOVL 


1|5 


MOVL 


1,1 


MOVZR» 


1,1, SNR 


ADCZL 


1,1, Skp 


COM^R» 


1,1, S7.R 


Jnp 


NKITE 


JnP 


RRITE-1 



(THE POMER UP STARTS AT LOC 1 



rSET THE NEXT ACC. NUMBER 
(AC3 • 3 

(SKIP AFTER CHECKING ALL OF 
(THE ACCUMULATORS 



IENBCNT SHOULD BE 
ICHECK THE CARRY 



(ACB ■ EXPECTED CARMY 
(CARRY FOUNU 



IUET THE dALK GROUND MORO 

IREAO 

(CHECK 

(CHECK THE NEXT MEM, CELL 



(SKIP AFTER CHECKING ALL THE 
(LOCATIONS 



(NEXT TIME THE MEMORY HILL BE 
(NRITTEN TO COMPLEMENTED BACK 
(SROUND *URU 
(IORST 



(FLOAT THE 8 OR ONE 

(DON'T SKIP AFTER FLOATING THE 

(1 FOR 18 TIMES 

(AC! • 177776 

(SKIP AFTER FLOATING THE B FOR 
116 TIMES 



0706 MNP»R 
01 

02 0t351 OS47B4 REPORT! 
73 07352 O10J63 
84 07353 070356 
79 07394 070117 

76 07355 070675 

77 O03S6 076121 
76 O7o57 076123 
711 77360 776117 
It 07361 077673 

11 07362 >I24766 

12 07363 U0O123 

13 07364 002764 



ST» 


3.RTAD0 


ISZ 


RPRT 


JHP 


.♦3 


JSR 


7IMESS 


DFNU 




JSR 


♦ICkLF 


JSR 


7IZ0CT 


JSR 


•IMESS 


SLASH 




LOA 


l.XUTA 


JSR 


fIZOCT 


JHP 


»KTAOD 



(SAVE THE RETURN AODRESS 
(LOOK AT THE REPORT TAG 
(TYPE THE MESSAGE ONLY ONCE 



(PRINT THE OATA FOUND 



(PRINT THE EXPECTED DATA 
(RETURN 



10007 HNP 


'MR 






ill 


000440 


.LOC 


448 


02 








03 00440 


104400 PwRUNI 


NEG 


0.1 


Pi 00441 


»44070 


51* 


l.ACCl 


06 l»C44i! 


034116 


LD» 


3.IFAULT 


ad 








87 00443 


094001 


STA 


3.1 


86 00444 


115020 


MOVZ 


0.3 


49 00445 


177100 


AODL 


3,3 


10 08446 


054072 


ill 


3.4CC3 


11 00447 


£10862 


131 


ENDCNT 


1! 00450 


000777 


JMP 


.-1 


13 0(1461 


083077 


HALT 




14 








IS 00452 


040073 PwRUP: 


ST* 


0fS*yg 


16 00453 


044074 


ST* 


l.SAVl 


17 00454 


050075 


ST* 


2,SAV2 


IB 0045S 


"54076 


ST* 


3,S*V3 


IV 08456 


126560 


SUBCL 


1.1 


20 00457 


044877 


ST* 


l.SAVC 


21 00460 


0S3477 


SKPBN 


CPU 


a 








23 08461 


000404 


JHP 


.♦4 


24 00462 


080277 


1NTUS 




26 00463 


006117 


JSP 


•IHfcSS 


26 00464 


000755 


ENINT 




27 00465 


126800 


tUC 


1.1 


28 00486 


044063 


ST* 


l.RPRT 


20 00467 


126400 


sue 


1.1 


30 00470 


044060 


ST* 


l.ACNUM 


31 00471 


034124 CHKAC: 


L0» 


3.ST*CK 


32 08472 


137000 


»UD 


1.3 


33 00473 


025484 


LU* 


1.4,3 


34 








36 8(1474 


021400 


LU» 


0,8,3 


36 








37 80475 


122415 


SUB* 


1,0, SNP 


36 07476 


800271 


JMP 


NXT*C 


3B 00477 


04006S 


ST* 


0.XDTA 


40 WPSPu 


004351 


JSP 


REPORT 


41 00501 


0240611 


LP* 


l.ACNUM 


42 00502 


006117 


JSP 


P1MESS 


43 0050,1 


000773 


*CUH 




44 00504 


006123 


JSP 


PIZOCT 


45 00505 


000271 


JMP 


NXTAC 



(AC3 ■ AODRESS OF FAULTY START 
ROUTINE 



(LOAD ACS WITH A WORD PAT, 



(LOAO THE CARRY 

IANO SAVE IT 

(SKIP IF INTERRUPTS ARE 

(ENABLED 



(SET REPORT TAG 



(GET THE VALUE THAT HAS RE- 
CEIVED IN THE ACC, 
(GET THE VALUE THAT SHOULD 
(HAVE BEEN RECEIVEO 
I3KIP ON ERROR 

(DAT* EXPECTED 

(REPORT THE FAILING AC « 
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44 



(FILENAHE'TTYIO 

(TELETYPE NON INTERRUPT PACKAGE 
(CARRY, AC0.AC1.AC2 SAVED 

("MfcS?3" PRINTS ASCII HESSAGES AS SPECIFIED BY ASSEMBLER 

("CRL7F" PRINTS A CARRIAGE RETURN 

("P0C7T" PRINTS C(l) IN OCTAL 

,'IOCIT PRINTS CC1) IN OCTAL. LEASING ZEROS SUPPRESSED 

("P0E7C" PRINTS C(l] IN DECIMAL, LEADING ZEROS SUPPRESSED, 

(THE ABUVE THREE ARE FOLLOWED BY A TAB 

("PDC7S" PRINTS CC1J IN OECIMAL, LEADING ZEROS SUPPRESSED, 

(FOLLOWED BY THE CHARACTER STORED AT CALLING LOCATION *1, 

(PROGRAM RETURNS TO CALLING LOCATION «2, 



("TINTO" ACCEPTS OCTAL, ANO 
("TINTO" ACCEPTS DECIMAL SINGLE P 
(INTO AC1 FROM THE TTI. LEADING 
(AND SPACES ARE IGNOREO. A 16 BI 
IFORMEO, THEN NEGATED IF A MINUS 
(EXIT AT CALL*1 IF INPUT ERROR HI 
( (NOT A LEGAL UIGIT OR TERMINATI 
(EXIT AT CALL*2 UPON TERMINATING 
( HITH »C0»0. 8, 40, 12, IS, 55 
( FOR NULL, SPACE, LlNE«FEEDi CAR 
(THE ABOVE WAIT FOR TTO OONE, THE 
(HUBOUT KILL DELETE THE LAST DIGI 
(ITIN7QI 



RECISION SIGNED INTEGERS 

NULLS, TABS, 

T UNSIGNED INTEGER IS 

SIGN IS TYPED. 

TH ACBaBAD CHARACTER, 

NG CHARACTER) 

CHARACTER 

RIAGE RETURN, COMMA 

N TTO IS CLEARED, 

T TYPED IN ITINtO' ANO 



("CHCTT" PRINTS ASCII CHARACTER IN C(B)R| CIB1L MUST BE B, 
(EXITS CALL ♦! IF C(B)R>B| SIMULATES TAB 

(»TYPTE« PRINTS CCBJR TO THE TTO OR LPT OR BOTH AS PER THE 
(SWITCH SELECTION REGISTER ISWREG', 
(EXITS AT CALL*!. REPLACE "TYPTE" WITH 
(INTERRUPT "TYP?E« IF DESIRED, 

("TPS7P" PRINTS A SPACE ANO EXITS AT C*LL*1 WITH ACB • 4B 



I»0«I9 MNP»P 










01 












M 




IMES7S 


ROUTINE 






»3 












04 
«5 
06 




(THE CALLlNtt SE 


uUENCE ISI 








JSR 


•IMES7S 




97 

an 






POINTER 


TO MESSAGE 


TO BE PRINTED 


if uasBb 


»!S410P 


Hts?s: 


ST» 


3,RTN7A 


(SAVE THE RTN ADDRESS 


11 «H95P7 


0B4532 




JSK 


SAV7E 


(SAVE THE STATE OF MACHINE 


12 tf(»51U 


1034100 




LOA 


3.RTN7A 


1 


is weisi i 


fcl»li)0 




1SZ 


RTN74 




14 BC512 


/3149a 




LU* 


2,0,3 


IC(2) POINTS TO MESSAGE 


lb 00513 


^24419 




LC» 


1,P3777 


IA 8 bIT MASK 


16 UPSI4 


B21000 


MES7M1 


Lb* 


0,0,2 


IC[2)>DATA NORO 


17 H0S15 


125! 12 




MOVI_» 


1,1, SiC 




16 atiate 


1237U1 




ANDS 


1,0, SKP 




19 48517 


123401 




AND 


t,e,SKP 


;C C()J 'DATA CHARACTOK RIGHT 


ZB BBSZB 


15140a 




INC 


2.2 


(INC TO NEXT NORO 


21 laObZl 


124t"00 




COM 


1,1 


(FLIP MASK 


22 4)0522 


0(14487 




JSP 


CHC7T 


rPRiNT 


23 DP523 


«100771 




JMP 


MES7M 


rANOTHEN 


it unite 


00t)4i!2 




JMP 


.♦2 




25 H052S 


004404 


PLS?TI 


JSR 


CMC7T 




2$ dSISSft 


1*04521 


PEX7T1 


JSR 


RST7R 


(RESTORE THE STATE OF MACH 


27 00527 


002100 




JMP 


»KTN7A 


(EXIT 


26 













in 

01 

912 

as 

04 
05 

06 

07 
Bib 
00 
1H 
11 
12 
13 
14 
15 
15 
17 
IS 

in 

2U 
21 
22 
23 
24 
25 



P1B MNpap 



CHC7T ROUTINE 

THE CALLING SEQUENCE ISt 



ti053l £44113 CHC7T1 

00532 101315 

00533 001401 

005J4 175100 

0^535 054112 
0053b 004517 
HD53/ «)2till3 CHE7XI 
HP54? 034112 

00541 175240 

00542 t?1400 

U0S43 (1O0007 PC77I 



IDA 
JSR 



0053K 000377 P3777: 377 



0, CHARACTER TO BE PRINTED CRIGHT BYTE) 

HICHC7T 



STA 


0.CAC70 


(SAVE AC! 


MOVSU 


0,0, SNR 


(RETURN *2 IF NULI 


JMP 


1.3 




MOVL 


3,3 


IFOR CARRY SAVE 


STA 


3.C1R7E 


(PRINT Ctl) RIGHT 


JSR 


TTPJE 


(PRINT IT 


LUA 


0.CAC70 


(RESTORE AC0 


LOA 


3.C1R7E 


(RESTORE CRT 


MOVH 


3,3 


( 


JMP 


0,3 


(EXIT 



man mnp*r 








HI 










02 




(CRL7F 


ROUTINE 




03 










04 




I1HE CALLING SEQUENCE IS! 


05 










36 






JSP- 


PICRLTF 


07 










as 










tt 










It 00544 


»S41k>CI 


CKL7FI 


STA 


3.RTN7A 


11 00645 


0114474 




JSR 


SAV7E 


12 00546 


020134 




LUA 


0.K137 


13 00547 


BB4906 




JSS 


TYP7E 


l« 0055a 


020133 




LOA 


0.K12? 


15 00551 


000754 




JMP 


PLSJT 


16 


000133 


K12?« 


PC172 




17 


000134 


K15?» 


PC1T3 




1« 










19 











(SAVE RETURN 
ISAVE THE WORLD 



(PRINT CARRIAGE AND LF 
ISO TO RESTORE THE WORLD 



IK012 r<NP 
91 

■a 
*& 

04 

8b 
06 

07 
08 
09 
If 
11 
12 
11 
14 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
SB 

31 00552 

32 00353 

33 00554 

34 00555 

35 00556 

36 0JIS57 

37 00560 

38 07361 

39 00562 

At oirsej 

41 00564 

42 0056b 

43 ne566 

44 00567 

45 00570 
4b 

47 

4B 00571 
49 00572 
SB 0B573 

51 00574 

52 00575 

53 00576 

54 00577 
5b 00600 
56 B0601 
37 

5b 

99 (10602 

60 00603 



1, OCTAL NUMBER TO BE PRINTEO 
(LEADING ZEROES SUPPRESSED) 
PIZ0C7T 



Z0C7T, P0C7T, P0C7S AND POETC ROUTINES 
THt CALLING SEUU6NCE ISI 

LUA 

JSR 

THt CALLING SEQUENCE ISI 

LUA 1, OCTAL NUMBER TO BE PRINTED 

(LEADING ZEROES NOT SUPPRESSED) 
JSR PIP0C7T 

1HE CALLING SEUUENCE ISI 

LDA 
JSR 
THE CALLING SEQUENCE ISS 
LDA 



1, DECIMAL NUMBER TO BE PRINTEO 
(LEADING ZEROES SUPPRESSED) 
PIP0E7C 



1, DECIMAL NUMBER TO BE PRINTED 
(LEADING ZEROES SUPPRESSED) 

JSR #IPDC»S 

ALPHA WHERE ALPHA IS THE CHARACTER PRINTED 
AFTER THE DECIMAL NUMBER 



054100 
004466 
102400 
000404 
054100 
004462 
020456 
152620 
034455 
400416 
175400 
054100 
004453 
034100 
021777 



040110 
102001? 
000404 
054100 
004444 
102400 
034133 
030440 
040111 



101415 
1M4U«I 



Z0C7TI 



P0C7TI 



ZP07T: 



PUC?Sl 



POE?c: 



PDC71I 



STA 

JSR 

SUB 

JMP 

STA 

JSR 

LUA 

SUBZR 

LUA 

JHP 

INC 

STA 

JSR 

LUA 

LDA 



STA 
ADC 
JMP 
STA 
JSR 
SUB 
LDA 
LDA 
STA 



INC» 
INC 



3,RTN7A 
SAV7E 

a, b 

ZPOtT 

3.RTN7A 

SAVTE 

0,PC6?» 

2,2 

3.PC1T0 

P0C71 

3,3 

3.RTNTA 

SAV7E 

3.RTN7A 

0.-1,3 



0,PSPJ 

0,0 

P0C72 

3.RTN7A 

SAVTE 

0,0 

3,K127 

2.DET7B 

»,SPT7G 



0,0, SNR 

0,0 



SAVE THE RTN ADORESS 
SAVE THE WORLD 



SAVE THE RTN ADORESS 
SAVE THE NORLO 

PRINT C<1) IN OCTAL 
C{2)»1MB80, C(3)»li 

UPDATE THE RTN AODR PNTR 

SAVE THE WORLD 

READ THE CHARACTER TO BE 

PRINTED AFTER THE OECIHAL 

NUMBER 

SAVE THE SPECIAL CHAR, 

AC»« »1 

SAVE THE RTN ADDRESS 
SAVE THE WORLD 

C(3)M2 

PRINT C(l) IN OECIMAL 

ACTIVATE/DEACTIVATE THE TAG FOR 

SPECIAL CHARACTER 

BOTH ENTRIES PRINT NUMBER 

SKIP IF AC0 IS NOT -1 



0013 MNP*R 








Ul 


00604 


0401H7 




STA 


P,ZSU7P 


02 


1-0605 


11541 14 




STA 


3.TMP7 


aj 


006B6 


w341t>7 


0C07TI 


IDA 


3,ZSU7P 


04 


00607 


102001 


DEC7T: 


AuC 


0,0, 5HP 


as 


806110 


146400 




SUB 


2,1 


86 


0061 1 


101405 




INC 


0,0, SNR 


07 


00612 


151235 




MUVZR* 


2,2,SNR 


0b 


aesu 


034423 




LDA 


3.PC870 


USi 


refill 


146453 




sueo* 


2,1,SNC 


in 


00615 


000773 




jhp 


.-s 


11 

12 
13 


0H616 


054107 




STA 


3.ZSU7P 


00617 


1630C4 




ADO 


3,0,SZR 


14 


00b20 


004711 




JSP 


CHC7T 


15 


00621 


034114 




LDA 


3.TMP7 


16 


00622 


102400 




SUB 


0,0 


17 
lb 
IS) 


H0623 


172423 




Suez 


3,2,SNC 


0624 


000403 




JMP 


.♦3 


20 


(10625 


1014«>t" 




INC 


0,0 


21 


B0626 


000775 




JMP 


.-3 


22 


00627 


111004 




MUV 


e>,2,SZH 


33 


00630 


000756 




JMP 


DC07T 


24 


00631 


034U1 




LDA 


3,SPT7G 


25 


00632 


020440 




LUA 


0.PC470 


26 


00633 


175405 




INC 


3,3, SNH 


27 


e»s34 


020110 




LDA 


0,PSP7 


2b 
29 

3D 


1)0635 


000670 




JMP 


PLS7T 


(30630 


000060 


PC67&: 


Sit 




31 


00637 


000010 


PC170! 


10 




32 


00640 


023420 


0ET7BS 


10000, 





(THEN TAB TO NEXT POSITION 

(SAVE AC3 

(ZEROS SUPPRESS STUF 

(SKIP FIRST TINE MERE PER DIGIT 

IDIVIOE C(AC1) BY CCAC2) 

I 

(FOR ZERO SUPPRESS 

I 

(SUBTRACT N0RE7 

IVES, GO BACK 

INO.SAVE ZERO SUPPRESS FLAG 

(Ct0)«DIGIT 

(MAKE ASCII 

(PRINT 

(RESTORE AC3 

( 

(DIVIDE CCAC2) bV CCHC3) 

(SKIP IF AC3 > AC2 

(AC3 < AC2 

(SUBTRACT NORE 

(MAS IT LAST DIGIT7 

(NO, GET NEXT DIGIT 

(YES, CHECK THE SPECIAL CHAR FLAG 

(►OLLON THE PRINTUUT KITH 

(SPACE IF NOT SPCL CHAR FLAG 

(OTHERWISE FOLLOW HlfH THE CHAR 

(TO EXIT 



BK14 M«P«R 



I 

( SAV7E , SAVE THE WORLD ROUTINE 

I 

( THIS ROUTINt SAVES AC0,AC1,AC2 AND CRY 

I 



00641 ("4iM02 SAV7EI 

00642 044103 

00643 050104 
■10044 101100 

00645 0401^1 

00646 001400 



I 



STA 


1, 


.PAC70 


STA 


1, 


,PAC71 


StA 


2 


,PAC72 


MUVL 


0| 


.« 


STA 


0i 


,PCR7Y 


JhP 


0i 


,3 



( PST7R , RESTORE THE »(!RLD ROUTINE 

I 

( THIS ROUTINE RESTORES THE AC0.AC1.AC2 ANO CRT 

( 



00647 02«il0l RST7RI LDA 

»0o5(. 1012B0 MUVR 

00691 (120102 LUA 

00652 (.24103 LDA 

(•0653 030104 LDA 



*40654 1401400 



JMP 



0,PCR7Y 


1 


0,0 


1 


0.PACT0 


I 


1.PAC71 


( 


2.PAC72 


( 


0,3 


( 



ibhis mnp*r 








01 a»bss 


B4ID115 


TYPJE: 


STA 


0,TAC70 


02 00656 


I7siaa 




MOVL 


3,3 


03 00657 


B54106 




ST» 


3,TYP7R 


04 00660 


034132 




LDA 


3,P17»7 


06 ^6661 


163401! 




AND 


3,0 


86 00662 


asnii 


TTYTI 


0043 


«,TTO 


07 00663 


02B115 




L04 


0.TACT0 


00 00664 


063511 




skpbz 


TTO 


Hi 00665 


000777 




JwP 


.-1 


it 018660 


060211 




N10C 


TTO 


11 0P66? 


034106 




L0» 


3.TYPTR 


12 00670 


1752!) 51 




MUVR 


3.3 


13 «e>67 i 


001400 




JrIP 


71,3 


14 00672 


0*0040 


PC470I 


4 10 




15 










16 











(Saye *ta 

(SAVE CRY AND RTN AODR 
(TYPE THE RIGHT BYTE OF AM 
(STRIP THE PARITY BIT 
1 

(RESTORE AC0 



(CLEAR TTO DONE FLAG 



(RETURN 



lame khPhK 


it 


00673 120257 


02 


19*0000 


03 


B0O75 005213 


24 


147706 


as 


k.47125 


36 


120104 


07 


120257 


00 


050330 


*» 


141703 


l? 


142724 


11 


000104 


12 


00706 005213 


13 


052724 


14 


047322 


16 


152240 


16 


142510 


VI 


045640 


18 


054703 


19 


152240 


20 


120317 


21 


147714 


22 


043703 


23 


050240 


24 


031717 


25 


132311 


26 


147711 


27 


12«116 


28 


120246 


29 


052724 


30 


047322 


31 


147640 


32 


143306 


33 


152240 


34 


142510 


36 


030240 


36 


134717 


37 


151305 


38 


000000 


39 


00741 005215 


40 


146311 


41 


142714 


4k 


040307 


43 


120314 


44 


047311 


4S 


027324 


46 


041240 


47 


120131 


48 


142504 


49 


120126 


sa 


0S0B00 


51 


0P755 005215 


32 


047305 


S3 


04110] 


54 


142714 


55 


120104 


56 


047311 


57 


•127324 


58 


147640 


39 


120116 


SB 


147520 



SLASH! .TXTE 1/ I 

DFN£>: .TXTE l<15><12>F0UND / XPECTE01 



PHROFl .TXTE /<15»«12>TURN THE KEY TO LOCK POSITION I TURN OF 



IL!!»Lt .TXTE /«1S»«12»ILLESAL INT. BY OEV / 



ENINTI .TXTE /«15»«12>ENABLEJ INT, ON PONER UP/ 



e«i7 mnphh 

01 142727 

02 12*322 

03 050125 

04 001001*0 

05 B00764 OmPaRi 
0b 00773 04/311 ACUM1 
«7 040640 

06 000303 

09 00776 047311 INCNTl 

10 19224(1 

11 14251d 

12 14164a 

13 052717 

14 152116 
1!) 1513X5 

16 000000 

17 U1006 051501 ASCriYI 
16 152240 

19 142511* 

20 141640 

21 151101 

22 054722 

23 04124? 

24 152311 

25 U000U0 

26 131017 152101 BBNtMl 

27 146240 
26 141717 

29 120056 

30 U000k)B 

31 01024 005215 THRUli 



ENINT»7 

.TXTE /IN AC/ 



.TXTE /IN THE COUNTER/ 



,TXTE /AS THE CARRY BIT/ 



.TKTE /AT LOC. / 



.TXTE /«15>«12>STARTED THRU LDC 1/ 



32 


152123 






33 


151101 






34 


142724 






35 


120104 






3b 


044324 






37 


052722 






36 


146240 






39 


141717 






4 b 


130640 






41 


002000 






42 








43 01037 


000007 EliGSI 


,bLK 


7 


44 1*1046 


047115 OIRTI 


.TXTE 


IMNP4K 



45 153520 

46 120322 

47 120240 

48 030240 

49 000060 

50 01054 000009 

51 01053 000200 
58 01056 176773 

53 01057 177777 

54 01060 177777 

55 01061 17/777 

56 t>1062 177777 

57 01.163 000000 
56 

59 

60 01064 047503 



001 





START 
176773 
-1 

-1 

-I 
-1 



.TXT 



0016 Mm 


P*R 


01 


054520 


02 


044522 


03 


444107 


H4 


020124 


05 


041450 


06 


020051 


07 


043504 


0B 


026103 


06 


030440 


10 


033471 


11 01077 


040466 


12 


046114 


13 


051040 


14 


043511 


16 


052110 


lb 


020123 


17 


042522 


16 


042523 


19 


453122 


20 


042105 


n 


000056 


22 




23 





.END 
••0M00P TOTAL EWRORS, 00000 PASS 1 ERRORS 



/COPYRIGHT (C) DGC. 1976 



«B19 nNPwrf 












ACCt) 


000067 


3/17 


3/48 


4/22 


4/33 


5/28 


ACC1 


00007a 


3/19 


7/04 








ACC2 


000U71 


3/19 


4/35 








ACCJ 


000072 


3/20 


7/m 








ACNUK 


00B06U 


3/09 


5/07 


5/08 


7/30 


7/41 


ACUM 


000773 


7/43 


17/06 








ASCKY 


Nl»»S 


3/29 


17/17 








BDMEH 


001017 


5/38 


17/26 








BKGND 


eneusi 


3/10 


4/2,1 


5/31 


3/46 




CAC70 


000113 


3/37 


10/12 


10/16 






CHC7T 


000531 


9/22 


9/25 


10/12 


13/14 




CHE7X 


000537 


10/18 










CMKAC 


000471 


3/12 


7/31 








CMKCR 


000305 


5/16 


5/20 








CHR7E 


000112 


3/36 


10/16 


10/19 






CMR7Z 


000105 


3/31 










COUNT 


000127 


2/46 


3/49 


4/31 






CNL7F 


000544 


3/43 


11/10 








DC07T 


0W0606 


13/03 


13/23 








OEC?T 


000607 


13/04 










0ET7B 


000640 


12/55 


13/32 








OFNB 


0M0673 


8/06 


16/03 








OI«T 


001046 


3/82 


3/47 


17/44 






EGGS 


001037 


3/05 


17/43 








ENOCN 


000862 


3/11 


4/32 


3/14 


7/11 




ENDPR 


000125 


3/47 


4/04 


4/25 


5/30 




ENINT 


008755 


7/26 


16/51 


17/05 






FAULT 


0140284 


3/40 


4/60 








ICRIF 


000121 


3/43 


6/07 








IEGG5 


000045 


3/05 


4/17 








IFAUL 


000119 


3/40 


7/05 








ILIGL 


040741 


4/55 


16/39 








IMESS 


000117 


3/41 


4/36 


4/34 


4/60 


5/03 






5/37 


6/05 


6/09 


7/2S 


7/42 


INCNT 


000776 


5/19 


17/09 








INST 


000128 


3/48 


4/42 








IPOCT 


000122 


3/44 










HYPE 


000120 


3/42 










IZOCT 


000123 


3/45 


4/56 


5/40 


6/08 


6/12 


K12? 


000133 


11/14 


11/16) 


12/34 






K157 


000134 


11/12 


11/17 








MEMCH 


000317 


3/25 


5/30 


5/45 






MES7* 


000514 


9/16 


9/23 








ME37S 


000506 


3/41 


9/10 








Nil 


000131 


3/51 


4/44 








N3 


000130 


3/30 


5/09 








NXTAC 


000271 


3/07 


7/36 


7/45 






NXTCL 


000332 


5/34 


3/41 








ONPNR 


000764 


5/04 


17/05 








P1777 


000132 


3/32 


4/16 


13/04 






P3777 


000930 


9/15 


10/10 








PAC70 


000102 


3/28 


14/08 


14/24 






PAC71 


000103 


3/29 


14/09 


14/25 






PAC72 


000104 


3/30 


14/10 


14/26 






PC170 


000637 


12/39 


13/31 








PC172 


000133 


3/53 


11/16 








PC175 


000134 


3/34 


11/17 








PC470 


000672 


13/29 


15/14 








PC670 


000630 


12/37 


13/08 


13/30 







5/31 



5/18 



7/44 



5/28 



002D MNPHR 

PC77 000543 
PCR7Y 000101 
PDC71 000601 
PDC72 000577 
PDC75 000564 
PUE7C 000574 
PEXTT 000526 
PL87T 000525 
PUC7T R00556 
PSP7 000110 
PwRUN 000440 
PHHQF 000706 
PmRTS 000201 
PCRUP 000452 
RfcPOR 000351 

RPRT 00006J 

RST7R 000647 

RTADD 000064 

RTN7A 000108 



SAV0 
SAV1 
3AV2 
3AV3 
SAVC 



000073 
000074 
000075 
000076 
000077 



SAV7E 000641 
SLASH 040673 
3PT7G 080111 
STACK 008124 
START 0082P0 
TAC70 000119 
TMRU1 001024 
TMP7 000114 
TPMEH 000065 
TTOUT 000234 
TTT7 000662 
TYP7E 00065b 
TYP7R 000106 
HKITE 000222 
XDTA 000066 
Z0C7T 000552 
ZP07T 080561 
ZSU7P 000107 



10/23 








3/27 


14/12 


14/22 




12/40 


12/56 






12/50 


12/54 






12/41 








12/51 








9/26 








9/25 


11/15 


13/28 




3/44 


12/35 






3/34 


12/48 


13/27 




4/33 


7/03 






4/37 


16/12 






4/04 


4/14 






7/15 








2/28 


2/31 


2/54 


5/17 


7/40 








3/12 


6/03 


7/28 




9/26 


14/22 






3/13 


6/02 


6/13 




3/26 


9/10 


9/12 


9/13 


12/35 


12/42 


12/44 


12/91 


3/21 


7/13 






3/22 


7/16 






3/23 


7/17 






3/24 


7/18 






3/25 


3/23 


7/20 




9/11 


11/U 


12/32 


12/36 


6/10 


16/01 






3/35 


12/36 


13/24 




3/46 


7/31 






2/24 


2/43 


2/93 


4/03 


3/39 


19/01 


19/07 




5/02 


17/31 






3/38 


13/02 


13/15 




3/14 


4/20 


4/24 


3/42 


4/3J 


4/98 






15/06 








3/42 


10/17 


11/13 


19/81 


3/32 


15/03 


19/11 




2/14 


4/22 


9/98 


9/98 


3/15 


9/13 


9/28 


9/39 


3/45 


12/31 






12/34 


12/38 






3/33 


13/01 


13/93 


13/11 



3/27 



3/38 



6/(2 



9/27 11/10 12/31 



12/43 12/32 14/08 



9/05 17/91 



C/ll 



7/39 



